<%
Option Explicit
Dim fso, pasta, arquivo, nome, dados
Const ForReading = 1, ForWriting = 2, ForAppending = 8

Set fso = Server.CreateObject("Scripting.FileSystemObject")
pasta = Server.MapPath(".")
nome = Request.Form("nome")
dados = Request.Form("dados")

If nome = "" Or dados = "" Then
    Response.Write "Nome ("&nome&") ou dados ("&dados&") invalido"
    Response.End
End If

nome = nome&".xml"
dados = "<?xml version=""1.0"" encoding=""UTF-8""?>"&dados

If fso.FileExists(pasta&"\"&nome) Then
    Set arquivo = fso.OpenTextFile(pasta&"\"&nome, ForWriting)
Else
    Set arquivo = fso.CreateTextFile(pasta&"\"&nome)
End If

arquivo.WriteLine(dados)
Response.Write "Arquivo: '"&nome&"' foi salvo com sucesso."
%>